|
AutoCAD VBA : Inserts finden
Stelli1 am 03.07.2007 um 11:52 Uhr (0)
Hallo Freudi,du kannst schon einen Namen geben. Versuchs doch mal soCode:Public Sub MakeGroup() Dim ss As AcadSelectionSet Dim objGroup As AcadGroup Dim objEntitys() As AcadEntity On Error Resume Next Set ss = ThisDrawing.SelectionSets("GroupSel") If Err.Number Then Set ss = ThisDrawing.SelectionSets.Add("GroupSel") End If On Error GoTo 0 ThisDrawing.Utility.Prompt Chr(10) & "Elemente der Gruppe wählen:" ss.SelectOnScreen Debug.Print ss.Count If ss.Count 1 Then On Error Resume Next ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Objekt kopieren solange bis Taste E es beendet
Stelli1 am 14.11.2006 um 11:58 Uhr (0)
Hallo Tom,so meine letzte Version. Ist mal auf das wesentliche reduziert und läüft einwandfrei.Ich würde allerdings noch die Blöde Frage ob der Benutzer wirklich beenden will entfernen. Mir geht so was auf den Keks.Code: ModulOption ExplicitSub test() Dim Fläche As Double Dim GesamtFläche As Double Dim Anzahl As Integer ThisDrawing.Utility.Prompt Chr$(10) & "*** Flächen erfassen ***" Do Rechteck auf Benutzereingabe setzen Fläche = rechtlb(5, 5) If Fläche = 0 Then Exit Do Statistik ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Pickfirst Objekte entfernen
Stelli1 am 07.02.2008 um 12:07 Uhr (0)
Hallo Chris, Zitat:Original erstellt von c.schojer:..ThisDrawing.PickfirstSelectionSet.RemoveItems removeObjectsremoveObjects muss ein Array sein.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : DWG enthält Makros - Woher? ACADProject
Stelli1 am 22.08.2007 um 21:16 Uhr (0)
Hallo Wolfgang S,gib doch (mit geöffneter Zeichnung) den Befehl VBAMAN ein.Im Dialogfenster steht direkt unter Zeichnung "eingebettets Projekt".Wenn hier ein Eintrag drin ist, kannst du den mit dem Knopf "Extrahieren entfernen".Da es ja wohl eher ein ungewolltes VBA Projekt ist brauchst du die eingebette Datei nicht vorher exportieren.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Clickereignis auf TreeView Node
Stelli1 am 18.10.2006 um 10:35 Uhr (0)
Hallo Dirk,stell doch mal die Eigenschaft Listview1.view=lvwReportund lösche for dem Füllen die Columnheaders mitListview1.ColumnHeaders.Clear und füge eine Spaltemit ListView1.ColumnHeaders.Add 1, "Layer", "Layer", ListView1.Width * 0.99 ein.Vor allem vor dem Füllen neuer Elemente die alten mitListView1.ListItems.Clear entfernen.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektwahl / Auswahlfenster
Stelli1 am 10.10.2006 um 11:44 Uhr (0)
Hallo Christian,auch innerhalb der AutoCAD Befehle wird diese (deine) Vorgehensweise nie verwendet. Entweder (ein) Objekt wählen oder (mehrere) Objekte wählen.Mit SelectOnScreen kann der Benutzer ein oder meherer Objekte mit allen Optionen wie hinzufügen, entfernen, Fenster etc. verwenden.Eigentlich sollte auch deine Funktion damit auskommen. Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Programmabbruch / x64 VBA
Stelli1 am 23.05.2012 um 17:07 Uhr (0)
Hallo Dirk,das kann man so einfach nicht sagen. Wenn es an der Datenbankverbindung liegt, hast du alles ausgelassen.Code:With Cn .CursorLocation = adUseClient###--Hier die DatenbankverküpfungEnd WithDa sollte doch in der Connection ein LockType drin sein, zumindest wenn mehrere darauf zugreifen.Wie füllst du das Recordset.Und ich würde an deiner Stelle erst mal das ON ERROR RESUME NEXT entfernen. Da weisst du doch nie wo der Hammer hängt.Wilfried Stelberg------------------Warum lispeln wenns auch anders ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Hyperlink auf Label legen!?
Stelli1 am 27.01.2006 um 21:09 Uhr (0)
Hallo,lade dir doch mal das neue Release 4.1 von Blockinfo.Hier kannst du den Code rausholen für einen Hyperlink und einen WWW Download per VBA.Prinzip Hyperlink:- Label erstellen- Mausicon auf Benutzdefiniert- MausIcon Hand wählen (siehe Anhang -.txt entfernen)- Bei Click Ereignis Prozedur aufrufen- Die Prodzedur ruft eine Win-DLL auf (declare Anweisung erforderlich)Mit deinem Scrollbalken meinst du vielleicht das mehrere Zeilen in einer Textbox dargstellt werden sollen ?Dann musst du die Multiline Eigens ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Autocad aus Excel heraus ansprechen
Stelli1 am 25.02.2008 um 10:35 Uhr (0)
Hallo Ines,schön das es geklappt hat. Eigentlich brauchst du nur eine Reference, die auf die Autocad Typbiliothek.Du kannst in deinem Code beide Varianten vorhalten in dem du mit bedingter Complilierung arbeitest.Code:Option Explicit#Const isWithReference = TrueSub test() #If isWithReference = True Then Dim exApp As Excel.Application #Else Dim exApp As Object #End If End SubFüge den Code mal in ein Modul ein. Wenn isWithReference=true ist brauchst du den Verweis, wenn isWithReference=false ist k ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Speicher zugemüllt ?!?
Stelli1 am 25.04.2006 um 11:38 Uhr (0)
Hallo,ich habe nicht ganz verstanden wieso die Zeichnung 3000 geöffnet wird. Holst du Blöcke aus anderen Zeichnungen (Vorlagen) ?Bernd meint folgendes:Du deklarierst z.B. mit DIM Master_Doc as AcadDocument ein Objekt vom Typ Dokument. Mit Set Master_Doc = Thisdrawing instanzierst du eine Klasse im Speicher. Diese bleibt auch nach deinen SaveAs im Speicher.Am Ende deiner Prozedur sollest du mit Set Master_Doc= nothing die Instanz der Klasse aus dem Speicher entfernen. Schaeu doch auch mal wo deine Undo Date ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Zeichnen in Formularen
Stelli1 am 26.07.2008 um 18:39 Uhr (0)
Hallo Sebastian,erst mal herzlich willkommen in VBA Forum für AutoCAD. Zitat:Original erstellt von Sebastian1:..beschäftige mich gerad das erste mal mit VBA unter AutoCad. Ich bitte also um Verständnis für mein wahrscheinlich triviales Problem.Ganz so trivial wird das nicht sein Unter VB6 gibt es einige Methoden um in eine Form oder eine Picturbox zu zeichnen.Bei VBA gibt es IMHO diese Methoden nicht.Code:Me.Picture1.Line (1, 1)-(400, 400)Me.Picture1.Circle (400, 400), 100, QBColor(1)Du sollest da an eine ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Drag & Drop in VBA
Stelli1 am 05.05.2006 um 13:13 Uhr (0)
Hallo Benny,habs mir nochmal angeschaut. Hier mal eine Version die ganz gut läuft. Das Problem ist noch die Rückgabe der Koordinaten der Mausposition. Die werden in einer anderen Scalierung zurückgegeben. Ich habs mal mit zwei Umrechnungsfaktoren gelöst. Vielleicht findest du ja noch eine andere Lösung (API? ) zur Umrechnung der Koordinaten.Code:Option ExplicitConst faktor As Single = 20Const OleFaktor As Single = 12Private Sub TreeView1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x A ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Objekte von einer Lage lesen
Stelli1 am 27.11.2012 um 19:09 Uhr (0)
Hallo,im angegebenen Link ist ein Kurzbeispiel mit einer kleinen Falle drin.Macht man mal um kurz was zu probieren.Ich habe dir das mal (ohne zu Testen) zusammenkopiert und auskommentiert.So sollte es gehen Code: Deine Funktion zur SelektionPublic Sub mySelect() Selectionset (hierin sollen deine ausgewählten Objeklte aufgelistet werden) Dim tSSet As AcadSelectionSet Arrays für Filterangeben anlegen Dim FType(0) as Integer Dim FData(0) as Variant Fehlerverfolgung an da man ein Selektionset nur einmal ha ...
|
| In das Form AutoCAD VBA wechseln |
